home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_308
/
vlt
/
rexx
/
vltmouse.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-05-06
|
754b
|
36 lines
/* VLTMouse.rexx */
address VLT
quitflag = 0
y = 0
x = 0
mp = openport(VLTMOUSE)
do forever
if quitflag = 1 then leave
t = waitpkt(VLTMOUSE)
do forever
p = getpkt(VLTMOUSE)
if c2d(p) = 0 then leave
string = getarg(p)
t = reply(p, 0)
parse var string y x yold xold ytot xtot
'rev "D"' /* Deselect all */
'rev "K '||y - 1 - ytot||'"' /* Jump from Top to line y */
'rev "S S"' /* Select this line */
'rev "X revtemp"' /* Save in env variable */
str = getenv(revtemp)
str = request(50, 50, "Change this command?", str, , "Cancel", VLT)
if str ~= "" then "send ''"||str
end
end
/* This example doesn't really ever: */
exit